5 REM*C64FRIENDLYALIEN 6 GOTO20 7 PRINT"TIME: ";MID$(TI$,3,2);":";RIGHT$(TI$,2) 8 IFTI$>TU$THENPRINT"TIME IS UP!!! ":FORI=1TO1500:NEXT:GOTO1300 10 RETURN 11 LO=LO-Q2:RETURN 12 LO=LO-Q1:RETURN 13 LO=LO+P:RETURN 14 LO=LO+Q3:RETURN 15 LO=LO+Q2:RETURN 16 LO=LO+Q1:RETURN 17 LO=LO-P:RETURN 18 LO=LO-Q3:RETURN 20 POKE56,48:POKE52,48:CLR 30 POKE53281,1:PRINT"[147] *****FRIENDLY ALIEN*****[146] 35 [153]" STOPSETTING UP...." 36 [151]56334,[194](56334)[175]254:[151]1,[194](1)[175]251 40 NM[178]12288:[129]I[178]NM[164]NM[170]511:[151]I,[194](I[170]40960):[130] 42 [129]I[178]0[164]7:[151]NM[170]8[172]59[170]I,[194](53248[170]81[172]8[170]I):[130]:[151]NM[170]8[172]59[170]3,255 44 [129]I[178]0[164]7:[151]NM[170]8[172]61[170]I,[194](53248[170]8[172]77[170]I):[130] 48 [151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1:CK[178]0 50 [129]I[178]NM[170]272[164]NM[170]311:[135]A:CK[178]CK[170]A:[151]I,A:[130] 58 [129]I[178]NM[170]344[164]NM[170]383:[135]A:CK[178]CK[170]A:[151]I,A:[130] 68 [129]I[178]0[164]31:[135]A:CK[178]CK[170]A:[151]NM[170]I,A:[130] 69 [129]I[178]0[164]7:[135]A:CK[178]CK[170]A:[151]NM[170]8[172]60[170]I,A:[130] 70 [139]CK[178]15391[167]100 71 [153]"**ERROR IN DATA STATEMENTS**":[153]"**CHECK LINES 8070-8093**":[128] 100 X[178][187]([171]TI):[151]53280,0:[151]53281,0 101 [153]"LOADGUIDE THE LITTLE ALIEN WITH A JOYSTICK IN PORT 2"; 110 [153]" AND PICK UP ALL THE CANDY. 135 PRINT:PRINT"THEN GUIDE HIM TO THE PHONE AND THEN TO THE SPACESHIP. 160 [153]:[153]"SYSLOOK OUT FOR THE CANS OF COLA."; 161 [153]" IF HE DRINKS COLA HE WILL HAVE AN ALLERGIC"; 165 [153]" REACTION AND CAN'T BE GUIDED. 168 PRINT:PRINT"[159]IF HE TOUCHES A FLU BUG, "; 169 PRINT"OR IF YOU RUN OUT OF TIME, HE WILL GET THE FLU AND CANNOT GO HOME. 170 [153]"LIST***YOU HAVE 2 MINUTES*** 500 PRINT"ENTER SKILL LEVEL 1-5[146]":POKE198,0 502 GETA$:IFA$=""THEN502 503 A=VAL(A$):IFA<1ORA>5THEN500 505 SC=1024 510 CM=54272:PRINT"[147]":POKE53280,14:POKE53281,1:P5=15 511 O=0:H1=1:H2=32:H3=3:H4=34:H5=35:H6=36:H7=42:H8=61:H9=2:P6=45:P7=46:P8=47 512 VL=54296:SL=54272:SH=54273:WF=54276:Q1=39:Q2=40:Q3=41:Q4=42::P1=56320:P=1 515 POKE53272,(PEEK(53272)AND240)+12:POKESL+5,17:POKESL+6,241 519 REM: ***BUILD BORDER 520 FORB=SC+Q2TOSC+80:POKEB,35:POKECM+B,6:NEXT 525 FORB=SC+79TOSC+999STEPQ2:POKEB,35:POKECM+B,6:NEXT 530 FORB=SC+998TOSC+960STEP-1:POKEB,35:POKECM+B,6:NEXT 535 FORB=SC+960TOSC+Q2STEP-Q2:POKEB,35:POKECM+B,6:NEXT 600 REM: ***PLACE FLUBUGS 605 FORI=1TO9*A 610 GOSUB4000 612 IFPEEK(X)=35THEN610 620 POKEX,42:POKECM+X,3:IFI<=ATHENF(I)=X:POKEX+CM,7 622 NEXT 700 REM: ***PLACE COLA 705 FORI=1TO15*A 710 GOSUB4000 720 IFPEEK(X)=35ORPEEK(X)=42ORPEEK(X-Q2)=36ORPEEK(X+Q2)=36THEN710 725 POKEX,36:POKECM+X,2:NEXT 800 REM: ***PLACE CANDY 803 C=2:FORI=1TO20:C=C+1:IFC>7THENC=2 810 GOSUB4000 820 IFPEEK(X)<>32ORPEEK(X+1)<>32ORPEEK(X-1)<>32ORPEEK(X+Q2)<>32THEN810 822 IFPEEK(X-Q2)<>32THEN810 825 POKEX,34:POKECM+X,C:NEXT 830 RP=20:LO=SC+918:TI$="000000":TU$="000159" 899 REM: ***MAIN LOOP 900 IFRP=.THEN3000 920 POKELO,37:POKELO+Q2,38:POKELO+CM,4:POKELO+CM+Q2,4 922 GOSUB7 930 POKESH,50:POKEVL,10:POKEWF,17:GOTO1500 935 POKEWF,16 1000 AA=P5-(PEEK(P1)ANDP5) 1050 LT=LO:ONAAGOSUB11,15,10,17,18,16,10,13,12,14 1080 POKELT,H2:POKELT+Q2,H2 1099 REM: ***COLLISION CHECKER 1100 TL=PEEK(LO):BL=PEEK(LO+Q2) 1102 IFTL=H1ORTL=H3ORTL=H5ORBL=.ORBL=H9ORBL=H5THENLO=LT:GOTO900 1103 IFTL=H2ANDBL=H2THEN900 1110 IFTL=H7ORBL=H7THEN1300 1115 IFTL=H8ORBL=H8THEN3500 1120 IFTL=H6ORBL=H6THEN1400 1130 IFTL=H4ORBL=H4THENRP=RP-1:GOTO1200 1135 IFTL=P6ORTL=P7ORTL=P8ORBL=P8THEN3100 1140 GOTO900 1199 REM: ***CANDY PICKUP 1200 POKELO,37:POKELO+Q2,38:POKELO+CM,4:POKELO+CM+Q2,4 1210 POKESH,150:POKEWF,33:FORL=1TO25:NEXT 1220 POKESH,200:FORL=1TO25:NEXT:POKEWF,32:GOTO900 1299 REM: ***FLUBUG COLLISION 1300 POKELO,37:POKELO+Q2,38:POKELO+CM,3:POKELO+CM+Q2,3 1310 POKESL,150:FORL=1TO5:POKEWF,17:POKESH,25:FORX=1TO30:NEXT:POKEWF,16 1320 POKEWF,33:FORX=1TO50:NEXT:POKESL,0:FORX=1TO200:NEXT:NEXT:POKEWF,32 1325 GOTO2000 1399 REM: ***COLA COLLISION (GLUG-GLUG) 1400 POKELO,37:POKELO+Q2,38:POKELO+CM,4:POKELO+CM+Q2,4 1410 POKESL,150:FORL=1TO4:POKEWF,17:POKESH,25:FORX=1TO15:NEXT:POKEWF,16 1412 FORX=1TO25:NEXT:POKESL,0:FORX=1TO200:NEXT:NEXT 1415 POKELO,32:POKELO+Q2,32:POKELO+CM,1:POKELO+CM+Q2,1 1416 AA=INT(RND(1)*8)+1:GOTO1050 1499 REM: ***SELECT & MOVE FLUBUG 1500 D=INT(RND(P)*A)+P 1510 LT=LO:LO=F(D):X=INT(RND(P)*8)+P:FT=F(D) 1515 ONXGOSUB11,12,13,14,15,16,17,18 1634 F(D)=LO 1635 LO=LT:IFPEEK(F(D))<>H2ANDPEEK(F(D))<>37ANDPEEK(F(D))<>38THENF(D)=FT 1700 POKEFT,H2 1702 IFF(D)=LOORF(D)=LO+Q2THENPOKELO+CM,H3:POKELO+CM+Q2,H3:GOTO1310 1710 POKEF(D),H7:POKEF(D)+CM,7:GOTO935 2000 POKEVL,.:POKESH,. 2001 PRINT"[147][144]HE CAUGHT THE FLU FROM THE FLU BUG AND CAN NOT GO HOME." 2002 GOTO2040 2025 PRINT"[147][144] YOU WON!!" 2030 PRINT" ";MID$(TT$,3,2);" MINUTE ";RIGHT$(TT$,2)" SECONDS 2035 [153]" SKILL LEVEL"A 2040 [153]" PLAY AGAIN?" 2045 [151]53272,21 2050 [161]A$:[139]A$[178]""[167]2050 2055 [139]A$[178]"Y"[167][138]100 2056 [139]A$[179][177]"N"[167]2050 2060 [153]"LOAD":[128] 2999 [143]: ***BUILD SPACEPHONE 3000 Q[178]SC[170]80:R[178]SC[170]160:[141]6000:[141]7:[151]LO,32:[151]LO[170]Q2,32:LO[178]SC[170]918 3002 [153]"OPEN+, ":[153]"-.SYS/ ":RP[178]20:[137]900 3099 [143]: ***RING SPACEPHONE 3100 LO[178]SC[170]84:[151]LO,37:[151]LO[170]Q2,38:[151]LO[170]CM,4:[151]LO[170]CM[170]Q2,4 3110 [151]WF,17:[129]L[178]1[164]3:[129]M[178]1[164]50:[151]SH,150:[129]N[178]1[164]13:[130] 3120 [151]SH,0:[130]:[141]7:[129]M[178]1[164]1000:[130]:[141]7:[130]:[151]WF,16 3399 [143]: ***BUILD SPACESHIP 3400 Q[178]SC[170]200:R[178]SC[170]440:[141]7:[141]6000:[141]7 3401 [153]" ":[153]" " 3402 LO[178]SC[170]918:[151]LO,37:[151]LO[170]Q2,38:[151]LO[170]CM,4:[151]LO[170]CM[170]Q2,4 3406 [141]7:[141]3600:[141]7 3408 [153]""[166]20)"OPEN; 3410 GOSUB7:GOSUB3600:GOSUB7 3425 PRINT""SPC(19)"[159]@#B 3430 [153][166]17)"<<###<< 3435 PRINTSPC(19)"A#C 3440 [141]7:[141]3600:[141]7 3450 [153]""[166]18)"OPEN@###B 3452 PRINTSPC(18)"[159]##### 3460 [153][166]13)"OPEN############### 3462 PRINTSPC(18)"[159]##### 3470 [153][166]18)"OPENA###C 3480 GOSUB7:GOSUB3600:GOSUB7 3490 T=SC+343:FORB=1TO3:POKET,H8:POKECM+T,H3:T=T+Q3:NEXT:POKESC+387,H2 3492 POKESC+427,H2 3495 POKEVL,0:POKESH,0:RP=20:GOTO900 3499 REM: ***PUT ALIEN ON RAMP 3500 TT$=TI$:LO=SC+386:POKELO,37:POKELO+Q2,38:POKELO+CM,4:POKELO+CM+Q2,4 3505 FORL=1TO1500:NEXT 3510 POKESC+386,32:POKESC+426,32:POKESC+384,32:POKESC+343,32:POKESC+425,32 3520 FORL=1TO2000:NEXT:GOTO2025 3599 REM: ***SPACESHIP SOUND 3600 POKEVL,15:POKEWF,33:FORL=1TO3:FORM=1TO255STEP2:POKESH,M:NEXT:GOSUB7:NEXT 3640 POKEWF,32:RETURN 4000 X=INT(RND(1)*740)+SC+3*Q2:RETURN 5999 REM: ***RELOCATE FLUBUGS 6000 FORI=PTOA:IFF(I)>QANDF(I)